FILESrecord    = record
                     Name           : String[30];
                     Attrib         : Byte;
                     FilePath       : String[40];
                     FreeSpace      : Array[1..41] of Byte;
                     Security       : Word;
                     Flags          : FlagType;
                     PrivateSecurity: Word;
                     PrivateFlags   : FlagType;
                   end;